home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / DOSExtens.asm < prev    next >
Assembly Source File  |  1990-11-10  |  782b  |  51 lines
  1. *
  2. *    DOSExtens.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Libraries/DOSExtens.i.
  7. *
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _p%DOSBase
  13.  
  14.     XDEF    _CreateProc
  15.     XREF    _LVOCreateProc
  16. _CreateProc
  17.     movem.l    d2/d3/d4,-(sp)
  18.     move.l    16(sp),d4
  19.     move.l    20(sp),d3
  20.     move.l    24(sp),d2
  21.     move.l    28(sp),d1
  22.     move.l    _p%DOSBase,a6
  23.     jsr    _LVOCreateProc(a6)
  24.     movem.l    (sp)+,d2/d3/d4
  25.     rts
  26.  
  27.     XDEF    _DeviceProc
  28.     XREF    _LVODeviceProc
  29. _DeviceProc
  30.     move.l    4(sp),d1
  31.     move.l    _p%DOSBase,a6
  32.     jmp    _LVODeviceProc(a6)
  33.  
  34.     XDEF    _LoadSeg
  35.     XREF    _LVOLoadSeg
  36. _LoadSeg
  37.     move.l    4(sp),d1
  38.     move.l    _p%DOSBase,a6
  39.     jmp    _LVOLoadSeg(a6)
  40.  
  41.  
  42.     XDEF    _UnLoadSeg
  43.     XREF    _LVOUnLoadSeg
  44. _UnLoadSeg
  45.     move.l    4(sp),d1
  46.     move.l    _p%DOSBase,a6
  47.     jmp    _LVOUnLoadSeg(a6)
  48.  
  49.  
  50.     END
  51.